Private Sub TXTDCADCLI_LostFocus()
TXTDCADCLI.Text = Format(TXTDCADCLI.Text, "##/##/####")
If Not IsDate(TXTDCADCLI.Text) Then
   MsgBox "Este campo precisa ser preechido obrigatoriamente com uma data valida"
   TXTDCADCLI.Text = ""
   TXTVCADCLI.SetFocus
End If
TXTVCADCLI.SetFocus
End Sub